unit UpdateShowUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, jpeg, Gauges;

type
  TfrmUpdateShow = class(TForm)
    Image1: TImage;
    pbView: TGauge;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OnTcpCopy( AStatus: string;
                         AAllSize, ACurSize,
                         AFileAllSize, AFileCurSize: Int64;          
                         ASpeed: Double;
                         ARemainTime: TDateTime);
  end;

var
  frmUpdateShow: TfrmUpdateShow;

implementation

uses ClientDllUnit;

{$R *.dfm}

{ TfrmUpdateShow }

procedure TfrmUpdateShow.OnTcpCopy(AStatus: string; AAllSize, ACurSize,
  AFileAllSize, AFileCurSize: Int64; ASpeed: Double;
  ARemainTime: TDateTime);
begin
  Caption := AStatus;
  pbView.MaxValue := AFileAllSize div 1024;
  pbView.MinValue := 0;
  pbView.Progress := AFileCurSize div 1024;
end;

procedure TfrmUpdateShow.FormShow(Sender: TObject);
begin
//  DoUpdateClient(OnTcpCopy);
//  DoExecuteRun;

end;

end.
